home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Ornamentation / multi-ornament < prev    next >
Lisp/Scheme  |  1998-10-22  |  1KB  |  38 lines
  1. multi-ornament n list &key (di 'u)
  2. (type :diatonic) (pref :old)
  3.  
  4. n can be a number or a list of numbers
  5. di can be 'u (up) or 'd (down) or a list of u's
  6. and d's
  7. type can be :diatonic or :chromatic
  8. pref can be :old or :new
  9.  
  10. this is a combination of the different ornament-
  11. functions combined into one function.
  12.  
  13. (setq l 
  14. '(a a a a a a a b b b b b b c c c c c d d d d e e e f f g h i))
  15.  
  16. (multi-ornament 3 l)
  17. ->(d c b a a a a e d c b b b f e d c c g f e d g f e g f g h i)
  18.  
  19. (multi-ornament '(3 2) l)
  20. ->(d c b a a a a d c b b b b f e d c c f e d d g f e g f g h i)
  21.  
  22. (multi-ornament '(3 2) l :di 'd)
  23. ->(-d -c -b a a a a -b a b b b b -b a b c c b c d d c d e e f g h i)
  24.  
  25. (multi-ornament 4 l :di '(d d u))
  26. ->(-e -d -c -b a a a -d -c -b a b b g f e d c a b c d c d e g f g h i)
  27.  
  28. (multi-ornament '(3 2) l :di '(u d u) :pref :new)
  29. ->(d d d d c b a -b -b -b -b a b f f e d c f f e d c d e g f g h i)
  30.  
  31. (multi-ornament '(1 3 2) l :pref :new :type :chromatic 
  32. :di '(u d))
  33. ->((1 a) (1 a) (1 a) (1 a) (1 a) (1 a) a (-3 b) (-3 b) (-3 b) (-2 b) (-1 b) b (2 c) (2 c) (2 c) (1 c) c (-1 d) (-1 d) (-1 d) d (2 e) (1 e) e (-1 f) f g h i)
  34.  
  35. (multi-ornament '(4 1 3 2) l :pref :old :type :chromatic 
  36. :di '(u d d u))
  37. ->((4 a) (3 a) (2 a) (1 a) a a a (-1 b) b b b b b (-3 c) (-2 c) (-1 c) c c (2 d) (1 d) d d (2 e) (1 e) e (-1 f) f g h i)
  38.